inherited dlgSelReturnedCheck: TdlgSelReturnedCheck
  Width = 606
  Height = 250
  Caption = #1042#1099#1073#1086#1088' '#1095#1077#1082#1072' '#1076#1083#1103' '#1074#1086#1079#1074#1088#1072#1090#1072
  Constraints.MinHeight = 250
  Constraints.MinWidth = 550
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 341
    Top = 0
    Width = 5
    Height = 192
  end
  inherited Panel1: TPanel
    Top = 192
    Width = 598
    Height = 31
    inherited BitBtn1: TBitBtn
      Left = 399
      Top = 4
      Caption = #1042#1099#1073#1088#1072#1090#1100
    end
    inherited BitBtn2: TBitBtn
      Left = 501
      Top = 4
    end
  end
  inherited ToolBar1: TToolBar
    Width = 598
    Height = 0
    Enabled = False
    inherited ToolButton1: TToolButton
      Enabled = False
    end
    inherited ToolButton2: TToolButton
      Enabled = False
    end
    inherited ToolButton3: TToolButton
      Enabled = False
    end
    inherited ToolButton4: TToolButton
      Enabled = False
    end
  end
  object dbgReciepts: TDBGridEh [3]
    Left = 0
    Top = 0
    Width = 341
    Height = 192
    Align = alLeft
    Constraints.MaxWidth = 400
    Constraints.MinHeight = 100
    Constraints.MinWidth = 300
    DataSource = dsc_Reciepts
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    VTitleMargin = 5
    Columns = <
      item
        EditButtons = <>
        FieldName = 'RECIEPT'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'SUMMA'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'ADDRESS'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'CREATER'
        Footers = <>
      end>
  end
  object dbgrecieptPays: TDBGridEh [4]
    Left = 346
    Top = 0
    Width = 252
    Height = 192
    Align = alClient
    Constraints.MinWidth = 252
    DataSource = dsc_RecieptPays
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    VTitleMargin = 5
    Columns = <
      item
        EditButtons = <>
        FieldName = 'NAME'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'SUMMA'
        Footers = <>
      end>
  end
  inherited ActionList1: TActionList
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      SecondaryShortCuts.Strings = (
        'Esc')
      OnExecute = aCancelExecute
    end
  end
  object ds_Reciepts: TpFIBDataSet
    SelectSQL.Strings = (
      'select r.reciept, sum(r.summa) as summa,'
      
        '       (select rname from user_getfullname (r.createuserid)) as ' +
        'creater,'
      '       (select v.address from v_abons v'
      '          where r.abonent_id = v.id) as address'
      '  from reciepts r, user_getcode u'
      '  where r.createdate = current_date'
      '    and r.createuserid = u.rcode'
      '  group by r.reciept, r.createuserid, r.abonent_id'
      '  order by r.reciept desc, 4')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 80
    Top = 76
    object ds_RecieptsRECIEPT: TFIBStringField
      DisplayLabel = #8470' '#1095#1077#1082#1072
      DisplayWidth = 10
      FieldName = 'RECIEPT'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_RecieptsSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      DisplayWidth = 8
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
    object ds_RecieptsADDRESS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089
      DisplayWidth = 30
      FieldName = 'ADDRESS'
      Size = 245
      EmptyStrToNull = True
    end
    object ds_RecieptsCREATER: TFIBStringField
      DisplayLabel = #1050#1072#1089#1089#1080#1088
      DisplayWidth = 20
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 140
    Top = 76
  end
  object ds_RecieptPays: TpFIBDataSet
    SelectSQL.Strings = (
      'select r.summa, s.name'
      '  from reciepts r, pays p, services s'
      '  where r.abonent_id = :pabonent_id'
      '    and r.reciept = :reciept'
      '    and p.id = r.payment_id'
      '    and s.id = p.group_id'
      '  order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    DataSource = dsc_Reciepts
    Left = 412
    Top = 68
    object ds_RecieptPaysNAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 30
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_RecieptPaysSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
  end
  object dsc_Reciepts: TDataSource
    DataSet = ds_Reciepts
    Left = 80
    Top = 108
  end
  object dsc_RecieptPays: TDataSource
    DataSet = ds_RecieptPays
    Left = 412
    Top = 100
  end
end
